5 IFPEEK(56)<>64THENPOKE56,64:RUN
10 D=PEEK(186):IFD<8THENSTOP
15 GOSUB1000
20 DEFFNH(X)=INT(X/256)
21 DEFFNL(X)=X-FNH(X)*256
100 REM MAKE A$ A MOVEABLE STRING
101 A$=STR$(PEEK(71)+256*PEEK(72))
102 A=VAL(A$)
103 REM A HOLDS LENGTH, A+1 HOLDS LO
104 REM A+2 HOLDS HI
105 :
110 F$="L/D.":F=LEN(F$)+1:REM FIND STRING
120 T$="LD.":T=LEN(T$)+1:REM TO STRING
121 :
149 REM BLOAD DIRECTORY
150 SYS57812"$:"+F$+"*",D,0:POKE780,0:POKE781,0:POKE782,64 :SYS65493
151 :
159 REM BEGIN AT 64*256 & SKIP HEADER
160 L=64*256+32
161 L1=2       :REM SKIP 2 BYTES
162 L2=16      :REM LENGTH OF FILENAME
163 REM CHECK FOR "BLOCK" -- END OF DIR
164 POKEA,5:POKEA+1,FNL(L+L1):POKEA+2,FNH(L+L1):IFA$="BLOCK"THEN900
169 REM FIND FIRST QUOTE MARKS
170 IFPEEK(L+L1)<>34THENL1=L1+1:GOTO170
175 L1=L1+1
179 REM FIND LENGTH TO 2ND QUOTE MARKS
180 IFPEEK(L+L1+L2)<>34THENL2=L2-1:GOTO180
189 REM POKE LEN, LO, HI INTO A
190 POKEA,L2:POKEA+1,FNL(L+L1):POKEA+2,FNH(L+L1)
191 REM SCRUB OFF PREFIX
192 A$=MID$(A$,F):PRINTA$
193 REM RENAME TO NEW PREFIX
194 OPEN15,D,15,"R0:"+T$+A$+"="+F$+A$:CLOSE15
198 REM ADD 32 TO LOCATION
199 L=L+32:GOTO161
900 D=DV:GOTO40000
999 END
1000 POKE53280,0:POKE53281,0:POKE646,0:PRINT"[147]"
1010 K=0:FORX=8TO15
1020 CLOSE2:OPEN2,X,2:CLOSE2
1030 IFST=0THENK=K+1:DV(K)=X
1040 NEXT
1050 POKE214,10-K/2:PRINT:PRINTTAB(05)"[208]LACE [204]ETTER [196]ROP [215]RITER [196]ISK
1051 [153][163]06)"IN DRIVE, AND CHOOSE DEVICE:
1052 PRINT:MU=PEEK(214)-1:GOSUB2000
1053 FORX=1TOK:PRINTTAB(13)X;"[157] [196]RIVE"DV(X):NEXT
1054 PRINTTAB(13)X;"[157] [197]XIT "
1060 GOSUB1100
1070 POKE198,0:WAIT198,1:GETZ$
1071 IFZ$=""THEN1200
1072 IFZ$="[145]"THEN1210
1073 IFZ$=CHR$(13)THENZ=MM+1:GOTO1221
1074 Z=VAL(Z$):IFZ>0ANDZ<K+2THEN1220
1075 GOTO1070
1100 POKE214,MU+OM:PRINT
1101 IFOM=KTHENPRINTTAB(13)"[146]"K+1"[157] [197]XIT ":GOTO1110
1102 PRINTTAB(13)"[146]"OM+1"[157] [196]RIVE"DV(OM+1)"[157] "
1110 POKE214,MU+MM:PRINT
1111 IFMM=KTHENPRINTTAB(13)""K+1"[157] [197]XIT ":RETURN
1112 PRINTTAB(13)""MM+1"[157] [196]RIVE"DV(MM+1)"[157] "
1120 RETURN
1200 OM=MM:MM=MM+1:IFMM+1>K+1THENMM=0
1201 GOTO1060
1210 OM=MM:MM=MM-1:IFMM<0THENMM=K
1211 GOTO1060
1220 OM=MM:MM=Z-1:GOSUB1100
1221 IFMM=KTHEN40000
1222 DV=D:D=DV(Z):RETURN
2000 MM=0:FORX=1TOK:IFD=DV(K)THENMM=X-1
2001 NEXT:OM=MM:RETURN
9999 END
10000 D=PEEK(186):N$="B.DIR TO BAS":OPEN1,D,15,"I0":CLOSE1
10001 OPEN1,D,15,"S0:"+N$:CLOSE1:SAVEN$,D:END
10008 POKE186,8:GOTO10000
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END